GLJNLHST
stomer in sele()
sele customer
if reccount()=0
	append blank
endif
declare cus[reccount(),1]
copy to array cus field sub_code
use cashbook in sele()
sele cashbook
if reccount() = 0
	append blank
endif
declare cbook[reccount(),1]
copy to array cbook field sub_code
use saleprod in sele() order prod_code
sele saleprod
if reccount() = 0
	append blank
endif
declare sales[reccount(),1]
copy to array sales field prod_code
use stmaster i
ACT_CODE
SUB_CODE
FIRST_REF
return
PROCEDURE formclose     && CENTWISE.ONCLOSE
*-----------------------------------------------------------------
* NAME
*   ONCLOSE - Event handler for CENTWISE
*-----------------------------------------------------------------
	sele customer
	set order to sub_code
	if seek(space(10))
		dele all for isblank(sub_code) 	
		pack
	endif
	sele creditor
	set order to sub_code
		if seek(space(10))
		dele all for isblank(sub_code)
		pack
	endif
	sele cashbook
	set order to sub_code
		if seek(space(2))
		dele all for isblank(sub_code) 
		pack
	endif
	sele stmaster
	set order to stock_code
	if seek(space(10))
		dele all for isblank(stock_code)	
		pack
	endif
	sele saleprod
	set order to prod_code
	if seek(space(10))
		dele all for isblank(prod_code) 	
		pack
	endif
	lvoid = centwise.release()
	saf = set('safety')
	set safety off
	save to defaults. 
	set safety &saf.
	close data
	set print to
	set print off
RETURN    
procedure debts
	do customer
return
procedure crdts
	do creditor
return
procedure cshbks
	do cashbook
return
PROCEDURE saleinv     && DBMITEM1.ONCLICK
*-----------------------------------------------------------------
* NAME
*   ONCLICK - Event handler for DBMITEM1
*-----------------------------------------------------------------
	do invcapt
RETURN    
ACT_CODE
ACT_CODE
SUB_CODE
SUB_CODE
FIRST_REF
FIRST_REF